home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-07-12 | 5.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 75 65 20 | 4a 75 6c 20 31 32 20 30 | on Tue |Jul 12 0|
|00000040| 32 3a 35 35 3a 32 36 20 | 31 39 39 34 0a 3b 3b 3b |2:55:26 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 70 72 6f 6c 6f 67 | 2e 65 6c 0a 3b 3b 3b 20 |p/prolog|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 32 35 2e 31 36 2e 0a | 3b 3b 3b 20 62 79 74 65 |.25.16..|;;; byte|
|000000a0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 46 53 46 |comp ver|sion FSF|
|000000b0| 20 32 2e 31 30 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 | 2.10.;;|; optimi|
|000000c0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|000000d0| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|000000e0| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|000000f0| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000100| 6d 61 63 73 20 31 38 2e | 0a 0a 28 69 66 20 28 61 |macs 18.|..(if (a|
|00000110| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000120| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000130| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000140| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000150| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|00000160| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 | (st|ring-les|
|00000170| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|00000180| 20 22 31 39 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "19")))|. (er|
|00000190| 72 6f 72 20 22 60 2f 68 | 6f 6d 65 2f 66 73 66 2f |ror "`/h|ome/fsf/|
|000001a0| 72 6d 73 2f 65 31 39 2f | 6c 69 73 70 2f 70 72 6f |rms/e19/|lisp/pro|
|000001b0| 6c 6f 67 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |log.el' |was comp|
|000001c0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001d0| 39 22 29 29 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |9"))..(b|yte-code|
|000001e0| 20 22 c0 c1 21 84 08 00 | c2 11 c0 c3 21 84 10 00 | "..!...|....!...|
|000001f0| c2 13 c0 c4 21 84 18 00 | c2 14 c2 87 22 20 5b 62 |....!...|...." [b|
|00000200| 6f 75 6e 64 70 20 70 72 | 6f 6c 6f 67 2d 6d 6f 64 |oundp pr|olog-mod|
|00000210| 65 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 6e |e-syntax|-table n|
|00000220| 69 6c 20 70 72 6f 6c 6f | 67 2d 6d 6f 64 65 2d 61 |il prolo|g-mode-a|
|00000230| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 70 72 6f 6c |bbrev-ta|ble prol|
|00000240| 6f 67 2d 6d 6f 64 65 2d | 6d 61 70 5d 20 32 29 0a |og-mode-|map] 2).|
|00000250| 28 64 65 66 76 61 72 20 | 70 72 6f 6c 6f 67 2d 70 |(defvar |prolog-p|
|00000260| 72 6f 67 72 61 6d 2d 6e | 61 6d 65 20 22 70 72 6f |rogram-n|ame "pro|
|00000270| 6c 6f 67 22 20 22 5c 0a | 2a 50 72 6f 67 72 61 6d |log" "\.|*Program|
|00000280| 20 6e 61 6d 65 20 66 6f | 72 20 69 6e 76 6f 6b 69 | name fo|r invoki|
|00000290| 6e 67 20 61 6e 20 69 6e | 66 65 72 69 6f 72 20 50 |ng an in|ferior P|
|000002a0| 72 6f 6c 6f 67 20 77 69 | 74 68 20 60 72 75 6e 2d |rolog wi|th `run-|
|000002b0| 70 72 6f 6c 6f 67 27 2e | 22 29 0a 28 64 65 66 76 |prolog'.|").(defv|
|000002c0| 61 72 20 70 72 6f 6c 6f | 67 2d 63 6f 6e 73 75 6c |ar prolo|g-consul|
|000002d0| 74 2d 73 74 72 69 6e 67 | 20 22 72 65 63 6f 6e 73 |t-string| "recons|
|000002e0| 75 6c 74 28 75 73 65 72 | 29 2e 5c 6e 22 20 22 5c |ult(user|).\n" "\|
|000002f0| 0a 2a 28 52 65 29 43 6f | 6e 73 75 6c 74 20 6d 6f |.*(Re)Co|nsult mo|
|00000300| 64 65 20 28 66 6f 72 20 | 43 2d 50 72 6f 6c 6f 67 |de (for |C-Prolog|
|00000310| 20 61 6e 64 20 51 75 69 | 6e 74 75 73 20 50 72 6f | and Qui|ntus Pro|
|00000320| 6c 6f 67 29 2e 20 22 29 | 0a 28 64 65 66 76 61 72 |log). ")|.(defvar|
|00000330| 20 70 72 6f 6c 6f 67 2d | 63 6f 6d 70 69 6c 65 2d | prolog-|compile-|
|00000340| 73 74 72 69 6e 67 20 22 | 63 6f 6d 70 69 6c 65 28 |string "|compile(|
|00000350| 75 73 65 72 29 2e 5c 6e | 22 20 22 5c 0a 2a 43 6f |user).\n|" "\.*Co|
|00000360| 6d 70 69 6c 65 20 6d 6f | 64 65 20 28 66 6f 72 20 |mpile mo|de (for |
|00000370| 51 75 69 6e 74 75 73 20 | 50 72 6f 6c 6f 67 29 2e |Quintus |Prolog).|
|00000380| 22 29 0a 28 64 65 66 76 | 61 72 20 70 72 6f 6c 6f |").(defv|ar prolo|
|00000390| 67 2d 65 6f 66 2d 73 74 | 72 69 6e 67 20 22 65 6e |g-eof-st|ring "en|
|000003a0| 64 5f 6f 66 5f 66 69 6c | 65 2e 5c 6e 22 20 22 5c |d_of_fil|e.\n" "\|
|000003b0| 0a 2a 53 74 72 69 6e 67 | 20 74 68 61 74 20 72 65 |.*String| that re|
|000003c0| 70 72 65 73 65 6e 74 73 | 20 65 6e 64 20 6f 66 20 |presents| end of |
|000003d0| 66 69 6c 65 20 66 6f 72 | 20 70 72 6f 6c 6f 67 2e |file for| prolog.|
|000003e0| 0a 6e 69 6c 20 6d 65 61 | 6e 73 20 73 65 6e 64 20 |.nil mea|ns send |
|000003f0| 61 63 74 75 61 6c 20 6f | 70 65 72 61 74 69 6e 67 |actual o|perating|
|00000400| 20 73 79 73 74 65 6d 20 | 65 6e 64 20 6f 66 20 66 | system |end of f|
|00000410| 69 6c 65 2e 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ile.").(|byte-cod|
|00000420| 65 20 22 c0 c1 21 84 08 | 00 c2 11 0b 84 5a 00 c4 |e "..!..|.....Z..|
|00000430| 20 1d c6 c7 c8 0d 23 88 | c6 c9 ca 0d 23 88 c6 cb | .....#.|....#...|
|00000440| cc 0d 23 88 c6 cd cc 0d | 23 88 c6 ce cc 0d 23 88 |..#.....|#.....#.|
|00000450| c6 cf cc 0d 23 88 c6 d0 | cc 0d 23 88 c6 d1 d2 0d |....#...|..#.....|
|00000460| 23 88 c6 d3 d4 0d 23 88 | c6 d5 cc 0d 23 88 c6 d6 |#.....#.|....#...|
|00000470| cc 0d 23 88 c6 d7 d8 0d | 23 88 0d 13 29 d9 da db |..#.....|#...)...|
|00000480| 5c 22 88 dc dd de 5c 22 | 88 dc df e0 5c 22 88 0e |\"....\"|....\"..|
|00000490| 21 84 77 00 e2 20 16 21 | df 0e 21 21 88 db 87 22 |!.w.. .!|..!!..."|
|000004a0| 20 5b 62 6f 75 6e 64 70 | 20 70 72 6f 6c 6f 67 2d | [boundp| prolog-|
|000004b0| 69 6e 64 65 6e 74 2d 77 | 69 64 74 68 20 34 20 70 |indent-w|idth 4 p|
|000004c0| 72 6f 6c 6f 67 2d 6d 6f | 64 65 2d 73 79 6e 74 61 |rolog-mo|de-synta|
|000004d0| 78 2d 74 61 62 6c 65 20 | 6d 61 6b 65 2d 73 79 6e |x-table |make-syn|
|000004e0| 74 61 78 2d 74 61 62 6c | 65 20 74 61 62 6c 65 20 |tax-tabl|e table |
|000004f0| 6d 6f 64 69 66 79 2d 73 | 79 6e 74 61 78 2d 65 6e |modify-s|yntax-en|
|00000500| 74 72 79 20 39 35 20 22 | 77 22 20 39 32 20 22 5c |try 95 "|w" 92 "\|
|00000510| 5c 22 20 34 37 20 22 2e | 22 20 34 32 20 34 33 20 |\" 47 ".|" 42 43 |
|00000520| 34 35 20 36 31 20 33 37 | 20 22 3c 22 20 31 30 20 |45 61 37| "<" 10 |
|00000530| 22 3e 22 20 36 30 20 36 | 32 20 33 39 20 22 5c 22 |">" 60 6|2 39 "\"|
|00000540| 22 20 64 65 66 69 6e 65 | 2d 61 62 62 72 65 76 2d |" define|-abbrev-|
|00000550| 74 61 62 6c 65 20 70 72 | 6f 6c 6f 67 2d 6d 6f 64 |table pr|olog-mod|
|00000560| 65 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 20 6e |e-abbrev|-table n|
|00000570| 69 6c 20 64 65 66 61 6c | 69 61 73 20 70 72 6f 6c |il defal|ias prol|
|00000580| 6f 67 2d 6d 6f 64 65 2d | 76 61 72 69 61 62 6c 65 |og-mode-|variable|
|00000590| 73 20 23 5b 6e 69 6c 20 | 22 c0 09 21 88 5c 6e 13 |s #[nil |"..!.\n.|
|000005a0| c4 c5 21 88 c6 0e 07 50 | 15 c4 c8 21 88 0d 16 08 |..!....P|...!....|
|000005b0| c4 c9 21 88 ca 16 09 c4 | cb 21 88 cc 16 0b c4 cd |..!.....|.!......|
|000005c0| 21 88 ce 16 0d c4 cf 21 | 88 d0 16 0f c4 d1 21 88 |!......!|......!.|
|000005d0| d2 16 11 c4 d3 21 88 d4 | 89 16 13 87 22 20 5b 73 |.....!..|...." [s|
|000005e0| 65 74 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |et-synta|x-table |
|000005f0| 70 72 6f 6c 6f 67 2d 6d | 6f 64 65 2d 73 79 6e 74 |prolog-m|ode-synt|
|00000600| 61 78 2d 74 61 62 6c 65 | 20 70 72 6f 6c 6f 67 2d |ax-table| prolog-|
|00000610| 6d 6f 64 65 2d 61 62 62 | 72 65 76 2d 74 61 62 6c |mode-abb|rev-tabl|
|00000620| 65 20 6c 6f 63 61 6c 2d | 61 62 62 72 65 76 2d 74 |e local-|abbrev-t|
|00000630| 61 62 6c 65 20 6d 61 6b | 65 2d 6c 6f 63 61 6c 2d |able mak|e-local-|
|00000640| 76 61 72 69 61 62 6c 65 | 20 70 61 72 61 67 72 61 |variable| paragra|
|00000650| 70 68 2d 73 74 61 72 74 | 20 22 5e 25 25 5c 5c 7c |ph-start| "^%%\\||
|00000660| 5e 24 5c 5c 7c 22 20 70 | 61 67 65 2d 64 65 6c 69 |^$\\|" p|age-deli|
|00000670| 6d 69 74 65 72 20 70 61 | 72 61 67 72 61 70 68 2d |miter pa|ragraph-|
|00000680| 73 65 70 61 72 61 74 65 | 20 70 61 72 61 67 72 61 |separate| paragra|
|00000690| 70 68 2d 69 67 6e 6f 72 | 65 2d 66 69 6c 6c 2d 70 |ph-ignor|e-fill-p|
|000006a0| 72 65 66 69 78 20 74 20 | 69 6e 64 65 6e 74 2d 6c |refix t |indent-l|
|000006b0| 69 6e 65 2d 66 75 6e 63 | 74 69 6f 6e 20 70 72 6f |ine-func|tion pro|
|000006c0| 6c 6f 67 2d 69 6e 64 65 | 6e 74 2d 6c 69 6e 65 20 |log-inde|nt-line |
|000006d0| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 20 22 25 |comment-|start "%|
|000006e0| 22 20 63 6f 6d 6d 65 6e | 74 2d 73 74 61 72 74 2d |" commen|t-start-|
|000006f0| 73 6b 69 70 20 22 25 2b | 20 2a 22 20 63 6f 6d 6d |skip "%+| *" comm|
|00000700| 65 6e 74 2d 63 6f 6c 75 | 6d 6e 20 34 38 20 63 6f |ent-colu|mn 48 co|
|00000710| 6d 6d 65 6e 74 2d 69 6e | 64 65 6e 74 2d 66 75 6e |mment-in|dent-fun|
|00000720| 63 74 69 6f 6e 20 70 72 | 6f 6c 6f 67 2d 63 6f 6d |ction pr|olog-com|
|00000730| 6d 65 6e 74 2d 69 6e 64 | 65 6e 74 5d 20 32 5d 20 |ment-ind|ent] 2] |
|00000740| 70 72 6f 6c 6f 67 2d 6d | 6f 64 65 2d 63 6f 6d 6d |prolog-m|ode-comm|
|00000750| 61 6e 64 73 20 23 5b 28 | 6d 61 70 29 20 22 c0 09 |ands #[(|map) "..|
|00000760| c2 c3 23 88 c0 09 c4 c5 | 23 87 22 20 5b 64 65 66 |..#.....|#." [def|
|00000770| 69 6e 65 2d 6b 65 79 20 | 6d 61 70 20 22 09 22 20 |ine-key |map "." |
|00000780| 70 72 6f 6c 6f 67 2d 69 | 6e 64 65 6e 74 2d 6c 69 |prolog-i|ndent-li|
|00000790| 6e 65 20 22 1b 18 22 20 | 70 72 6f 6c 6f 67 2d 63 |ne ".." |prolog-c|
|000007a0| 6f 6e 73 75 6c 74 2d 72 | 65 67 69 6f 6e 5d 20 34 |onsult-r|egion] 4|
|000007b0| 5d 20 70 72 6f 6c 6f 67 | 2d 6d 6f 64 65 2d 6d 61 |] prolog|-mode-ma|
|000007c0| 70 20 6d 61 6b 65 2d 73 | 70 61 72 73 65 2d 6b 65 |p make-s|parse-ke|
|000007d0| 79 6d 61 70 5d 20 34 29 | 0a 28 64 65 66 61 6c 69 |ymap] 4)|.(defali|
|000007e0| 61 73 20 27 70 72 6f 6c | 6f 67 2d 6d 6f 64 65 20 |as 'prol|og-mode |
|000007f0| 23 5b 6e 69 6c 20 22 c0 | 20 88 c1 5c 6e 21 88 c3 |#[nil ".| ..\n!..|
|00000800| 14 c5 16 06 c7 20 88 c8 | c9 21 87 22 20 5b 6b 69 |..... ..|.!." [ki|
|00000810| 6c 6c 2d 61 6c 6c 2d 6c | 6f 63 61 6c 2d 76 61 72 |ll-all-l|ocal-var|
|00000820| 69 61 62 6c 65 73 20 75 | 73 65 2d 6c 6f 63 61 6c |iables u|se-local|
|00000830| 2d 6d 61 70 20 70 72 6f | 6c 6f 67 2d 6d 6f 64 65 |-map pro|log-mode|
|00000840| 2d 6d 61 70 20 70 72 6f | 6c 6f 67 2d 6d 6f 64 65 |-map pro|log-mode|
|00000850| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 22 50 72 6f | major-m|ode "Pro|
|00000860| 6c 6f 67 22 20 6d 6f 64 | 65 2d 6e 61 6d 65 20 70 |log" mod|e-name p|
|00000870| 72 6f 6c 6f 67 2d 6d 6f | 64 65 2d 76 61 72 69 61 |rolog-mo|de-varia|
|00000880| 62 6c 65 73 20 72 75 6e | 2d 68 6f 6f 6b 73 20 70 |bles run|-hooks p|
|00000890| 72 6f 6c 6f 67 2d 6d 6f | 64 65 2d 68 6f 6f 6b 5d |rolog-mo|de-hook]|
|000008a0| 20 32 20 22 5c 0a 4d 61 | 6a 6f 72 20 6d 6f 64 65 | 2 "\.Ma|jor mode|
|000008b0| 20 66 6f 72 20 65 64 69 | 74 69 6e 67 20 50 72 6f | for edi|ting Pro|
|000008c0| 6c 6f 67 20 63 6f 64 65 | 20 66 6f 72 20 50 72 6f |log code| for Pro|
|000008d0| 6c 6f 67 73 2e 0a 42 6c | 61 6e 6b 20 6c 69 6e 65 |logs..Bl|ank line|
|000008e0| 73 20 61 6e 64 20 60 25 | 25 2e 2e 2e 27 20 73 65 |s and `%|%...' se|
|000008f0| 70 61 72 61 74 65 20 70 | 61 72 61 67 72 61 70 68 |parate p|aragraph|
|00000900| 73 2e 20 20 60 25 27 73 | 20 73 74 61 72 74 20 63 |s. `%'s| start c|
|00000910| 6f 6d 6d 65 6e 74 73 2e | 0a 43 6f 6d 6d 61 6e 64 |omments.|.Command|
|00000920| 73 3a 0a 5c 5c 7b 70 72 | 6f 6c 6f 67 2d 6d 6f 64 |s:.\\{pr|olog-mod|
|00000930| 65 2d 6d 61 70 7d 0a 45 | 6e 74 72 79 20 74 6f 20 |e-map}.E|ntry to |
|00000940| 74 68 69 73 20 6d 6f 64 | 65 20 63 61 6c 6c 73 20 |this mod|e calls |
|00000950| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 60 70 72 |the valu|e of `pr|
|00000960| 6f 6c 6f 67 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 27 0a |olog-mod|e-hook'.|
|00000970| 69 66 20 74 68 61 74 20 | 76 61 6c 75 65 20 69 73 |if that |value is|
|00000980| 20 6e 6f 6e 2d 6e 69 6c | 2e 22 20 6e 69 6c 5d 29 | non-nil|." nil])|
|00000990| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 72 6f 6c |.(defali|as 'prol|
|000009a0| 6f 67 2d 69 6e 64 65 6e | 74 2d 6c 69 6e 65 20 23 |og-inden|t-line #|
|000009b0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 77 68 6f 6c |[(&optio|nal whol|
|000009c0| 65 2d 65 78 70 29 20 22 | c0 20 64 60 5a c1 1a 1b |e-exp) "|. d`Z...|
|000009d0| 1c c5 79 88 60 12 c6 c1 | 77 88 5c 66 69 5a c5 55 |..y.`...|w.\fiZ.U|
|000009e0| 84 21 00 5c 6e 60 7c 88 | 5c 66 6a 88 64 0b 5a 60 |.!.\n`|.|\fj.d.Z`|
|000009f0| 56 85 2d 00 64 0b 5a 62 | 2b 87 22 20 5b 70 72 6f |V.-.d.Zb|+." [pro|
|00000a00| 6c 6f 67 2d 69 6e 64 65 | 6e 74 2d 6c 65 76 65 6c |log-inde|nt-level|
|00000a10| 20 6e 69 6c 20 62 65 67 | 20 70 6f 73 20 69 6e 64 | nil beg| pos ind|
|00000a20| 65 6e 74 20 30 20 22 20 | 09 22 5d 20 33 20 22 5c |ent 0 " |."] 3 "\|
|00000a30| 0a 49 6e 64 65 6e 74 20 | 63 75 72 72 65 6e 74 20 |.Indent |current |
|00000a40| 6c 69 6e 65 20 61 73 20 | 50 72 6f 6c 6f 67 20 63 |line as |Prolog c|
|00000a50| 6f 64 65 2e 0a 57 69 74 | 68 20 61 72 67 75 6d 65 |ode..Wit|h argume|
|00000a60| 6e 74 2c 20 69 6e 64 65 | 6e 74 20 61 6e 79 20 61 |nt, inde|nt any a|
|00000a70| 64 64 69 74 69 6f 6e 61 | 6c 20 6c 69 6e 65 73 20 |dditiona|l lines |
|00000a80| 6f 66 20 74 68 65 20 73 | 61 6d 65 20 63 6c 61 75 |of the s|ame clau|
|00000a90| 73 65 0a 72 69 67 69 64 | 6c 79 20 61 6c 6f 6e 67 |se.rigid|ly along|
|00000aa0| 20 77 69 74 68 20 74 68 | 69 73 20 6f 6e 65 20 28 | with th|is one (|
|00000ab0| 6e 6f 74 20 79 65 74 29 | 2e 22 20 22 70 22 5d 29 |not yet)|." "p"])|
|00000ac0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 72 6f 6c |.(defali|as 'prol|
|00000ad0| 6f 67 2d 69 6e 64 65 6e | 74 2d 6c 65 76 65 6c 20 |og-inden|t-level |
|00000ae0| 23 5b 6e 69 6c 20 22 8a | c0 79 88 c1 c2 77 88 c3 |#[nil ".|.y...w..|
|00000af0| c4 21 83 12 00 c0 82 e1 | 00 c3 c5 21 83 1d 00 0e |.!......|...!....|
|00000b00| 06 82 e1 00 6f 83 25 00 | c0 82 e1 00 c7 c2 89 89 |....o.%.|........|
|00000b10| 1e 08 1e 09 1e 5c 6e 1e | 0b c3 cc 21 83 3d 00 c7 |.....\n.|...!.=..|
|00000b20| 16 08 82 40 00 c2 16 08 | 0e 0b 83 6d 00 cd 79 88 |...@....|...m..y.|
|00000b30| c0 79 88 6f 83 56 00 c2 | 89 16 0b 82 42 00 c1 c2 |.y.o.V..|....B...|
|00000b40| 77 88 c3 c5 21 84 40 00 | c3 ce 21 84 40 00 c2 89 |w...!.@.|..!.@...|
|00000b50| 16 0b 84 45 00 6f 83 77 | 00 c0 16 5c 6e 82 7a 00 |...E.o.w|...\n.z.|
|00000b60| 69 16 5c 6e c3 cf 21 83 | 85 00 0e 5c 6e 82 e0 00 |i.\n..!.|...\n...|
|00000b70| c3 d0 21 83 91 00 c7 16 | 09 82 94 00 c2 16 09 d1 |..!.....|........|
|00000b80| 20 88 6f 84 9e 00 cd 75 | 88 c3 d2 21 83 bf 00 0e | .o....u|...!....|
|00000b90| 09 83 b7 00 c3 d3 21 83 | b7 00 0e 5c 6e 0e 14 5c |......!.|...\n..\|
|00000ba0| 5c 82 e0 00 0e 15 0e 5c | 6e 5d 82 e0 00 c3 d6 21 |\......\|n].....!|
|00000bb0| 83 ca 00 0e 15 82 e0 00 | 0e 08 84 d5 00 c3 d7 21 |........|.......!|
|00000bc0| 83 df 00 0e 5c 6e 0e 14 | 5a c0 5d 82 e0 00 c0 2c |....\n..|Z.]....,|
|00000bd0| 29 87 22 20 5b 30 20 22 | 20 09 22 20 6e 69 6c 20 |)." [0 "| ." nil |
|00000be0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 25 25 25 22 |looking-|at "%%%"|
|00000bf0| 20 22 25 5b 5e 25 5d 22 | 20 63 6f 6d 6d 65 6e 74 | "%[^%]"| comment|
|00000c00| 2d 63 6f 6c 75 6d 6e 20 | 74 20 6c 65 73 73 20 6d |-column |t less m|
|00000c10| 6f 72 65 20 69 6e 64 20 | 65 6d 70 74 79 20 22 29 |ore ind |empty ")|
|00000c20| 22 20 2d 31 20 22 5c 6e | 22 20 22 25 25 5b 5e 25 |" -1 "\n|" "%%[^%|
|00000c30| 5d 22 20 22 28 22 20 65 | 6e 64 2d 6f 66 2d 70 72 |]" "(" e|nd-of-pr|
|00000c40| 6f 6c 6f 67 2d 63 6c 61 | 75 73 65 20 22 5b 2c 28 |olog-cla|use "[,(|
|00000c50| 3b 3e 5d 22 20 22 5b 5e | 2c 5d 22 20 70 72 6f 6c |;>]" "[^|,]" prol|
|00000c60| 6f 67 2d 69 6e 64 65 6e | 74 2d 77 69 64 74 68 20 |og-inden|t-width |
|00000c70| 74 61 62 2d 77 69 64 74 | 68 20 22 2d 22 20 22 5b |tab-widt|h "-" "[|
|00000c80| 5e 2e 5d 22 5d 20 35 20 | 22 5c 0a 43 6f 6d 70 75 |^.]"] 5 |"\.Compu|
|00000c90| 74 65 20 70 72 6f 6c 6f | 67 20 69 6e 64 65 6e 74 |te prolo|g indent|
|00000ca0| 61 74 69 6f 6e 20 6c 65 | 76 65 6c 2e 22 5d 29 0a |ation le|vel."]).|
|00000cb0| 28 64 65 66 61 6c 69 61 | 73 20 27 65 6e 64 2d 6f |(defalia|s 'end-o|
|00000cc0| 66 2d 70 72 6f 6c 6f 67 | 2d 63 6c 61 75 73 65 20 |f-prolog|-clause |
|00000cd0| 23 5b 6e 69 6c 20 22 c0 | 79 88 8a c1 7f 88 60 29 |#[nil ".|y.....`)|
|00000ce0| 1a c3 5c 66 5c 6e c5 23 | 83 16 00 c0 94 62 88 c6 |..\f\n.#|.....b..|
|00000cf0| c1 78 29 87 22 20 5b 30 | 20 6e 69 6c 20 65 6f 6c |.x)." [0| nil eol|
|00000d00| 70 6f 73 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |pos re-s|earch-fo|
|00000d10| 72 77 61 72 64 20 63 6f | 6d 6d 65 6e 74 2d 73 74 |rward co|mment-st|
|00000d20| 61 72 74 2d 73 6b 69 70 | 20 6d 6f 76 65 20 22 20 |art-skip| move " |
|00000d30| 09 22 5d 20 34 20 22 5c | 0a 47 6f 20 74 6f 20 65 |."] 4 "\|.Go to e|
|00000d40| 6e 64 20 6f 66 20 63 6c | 61 75 73 65 20 69 6e 20 |nd of cl|ause in |
|00000d50| 74 68 69 73 20 6c 69 6e | 65 2e 22 5d 29 0a 28 64 |this lin|e."]).(d|
|00000d60| 65 66 61 6c 69 61 73 20 | 27 70 72 6f 6c 6f 67 2d |efalias |'prolog-|
|00000d70| 63 6f 6d 6d 65 6e 74 2d | 69 6e 64 65 6e 74 20 23 |comment-|indent #|
|00000d80| 5b 6e 69 6c 20 22 c0 c1 | 21 83 08 00 c2 87 c0 c3 |[nil "..|!.......|
|00000d90| 21 83 11 00 c4 20 87 8a | c5 c6 78 88 69 6e 83 1f |!.... ..|..x.in..|
|00000da0| 00 c2 82 20 00 c7 5c 5c | 0e 08 5d 29 87 22 20 5b |... ..\\|..])." [|
|00000db0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 25 25 25 22 |looking-|at "%%%"|
|00000dc0| 20 30 20 22 25 25 22 20 | 70 72 6f 6c 6f 67 2d 69 | 0 "%%" |prolog-i|
|00000dd0| 6e 64 65 6e 74 2d 6c 65 | 76 65 6c 20 22 20 09 22 |ndent-le|vel " ."|
|00000de0| 20 6e 69 6c 20 31 20 63 | 6f 6d 6d 65 6e 74 2d 63 | nil 1 c|omment-c|
|00000df0| 6f 6c 75 6d 6e 5d 20 32 | 20 22 5c 0a 43 6f 6d 70 |olumn] 2| "\.Comp|
|00000e00| 75 74 65 20 70 72 6f 6c | 6f 67 20 63 6f 6d 6d 65 |ute prol|og comme|
|00000e10| 6e 74 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 2e 22 |nt inden|tation."|
|00000e20| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00000e30| c1 21 84 08 00 c2 11 c2 | 87 22 20 5b 62 6f 75 6e |.!......|." [boun|
|00000e40| 64 70 20 69 6e 66 65 72 | 69 6f 72 2d 70 72 6f 6c |dp infer|ior-prol|
|00000e50| 6f 67 2d 6d 6f 64 65 2d | 6d 61 70 20 6e 69 6c 5d |og-mode-|map nil]|
|00000e60| 20 32 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 | 2).(def|alias 'i|
|00000e70| 6e 66 65 72 69 6f 72 2d | 70 72 6f 6c 6f 67 2d 6d |nferior-|prolog-m|
|00000e80| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 88 c2 |ode #[ni|l "..!..|
|00000e90| 20 88 c3 14 c5 16 06 c7 | 16 08 c9 20 88 0e 5c 6e | .......|... ..\n|
|00000ea0| 84 5c 22 00 cb 0e 5c 66 | 21 16 5c 6e cd 0e 5c 6e |.\"...\f|!.\n..\n|
|00000eb0| 21 88 ce 0e 5c 6e 21 88 | cf d0 21 87 22 20 5b 72 |!...\n!.|..!." [r|
|00000ec0| 65 71 75 69 72 65 20 63 | 6f 6d 69 6e 74 20 63 6f |equire c|omint co|
|00000ed0| 6d 69 6e 74 2d 6d 6f 64 | 65 20 69 6e 66 65 72 69 |mint-mod|e inferi|
|00000ee0| 6f 72 2d 70 72 6f 6c 6f | 67 2d 6d 6f 64 65 20 6d |or-prolo|g-mode m|
|00000ef0| 61 6a 6f 72 2d 6d 6f 64 | 65 20 22 49 6e 66 65 72 |ajor-mod|e "Infer|
|00000f00| 69 6f 72 20 50 72 6f 6c | 6f 67 22 20 6d 6f 64 65 |ior Prol|og" mode|
|00000f10| 2d 6e 61 6d 65 20 22 5e | 7c 20 5b 20 3f 5d 5b 2d |-name "^|| [ ?][-|
|00000f20| 20 5d 20 2a 22 20 63 6f | 6d 69 6e 74 2d 70 72 6f | ] *" co|mint-pro|
|00000f30| 6d 70 74 2d 72 65 67 65 | 78 70 20 70 72 6f 6c 6f |mpt-rege|xp prolo|
|00000f40| 67 2d 6d 6f 64 65 2d 76 | 61 72 69 61 62 6c 65 73 |g-mode-v|ariables|
|00000f50| 20 69 6e 66 65 72 69 6f | 72 2d 70 72 6f 6c 6f 67 | inferio|r-prolog|
|00000f60| 2d 6d 6f 64 65 2d 6d 61 | 70 20 63 6f 70 79 2d 6b |-mode-ma|p copy-k|
|00000f70| 65 79 6d 61 70 20 63 6f | 6d 69 6e 74 2d 6d 6f 64 |eymap co|mint-mod|
|00000f80| 65 2d 6d 61 70 20 70 72 | 6f 6c 6f 67 2d 6d 6f 64 |e-map pr|olog-mod|
|00000f90| 65 2d 63 6f 6d 6d 61 6e | 64 73 20 75 73 65 2d 6c |e-comman|ds use-l|
|00000fa0| 6f 63 61 6c 2d 6d 61 70 | 20 72 75 6e 2d 68 6f 6f |ocal-map| run-hoo|
|00000fb0| 6b 73 20 70 72 6f 6c 6f | 67 2d 6d 6f 64 65 2d 68 |ks prolo|g-mode-h|
|00000fc0| 6f 6f 6b 5d 20 32 20 22 | 5c 0a 4d 61 6a 6f 72 20 |ook] 2 "|\.Major |
|00000fd0| 6d 6f 64 65 20 66 6f 72 | 20 69 6e 74 65 72 61 63 |mode for| interac|
|00000fe0| 74 69 6e 67 20 77 69 74 | 68 20 61 6e 20 69 6e 66 |ting wit|h an inf|
|00000ff0| 65 72 69 6f 72 20 50 72 | 6f 6c 6f 67 20 70 72 6f |erior Pr|olog pro|
|00001000| 63 65 73 73 2e 0a 0a 54 | 68 65 20 66 6f 6c 6c 6f |cess...T|he follo|
|00001010| 77 69 6e 67 20 63 6f 6d | 6d 61 6e 64 73 20 61 72 |wing com|mands ar|
|00001020| 65 20 61 76 61 69 6c 61 | 62 6c 65 3a 0a 5c 5c 7b |e availa|ble:.\\{|
|00001030| 69 6e 66 65 72 69 6f 72 | 2d 70 72 6f 6c 6f 67 2d |inferior|-prolog-|
|00001040| 6d 6f 64 65 2d 6d 61 70 | 7d 0a 0a 45 6e 74 72 79 |mode-map|}..Entry|
|00001050| 20 74 6f 20 74 68 69 73 | 20 6d 6f 64 65 20 63 61 | to this| mode ca|
|00001060| 6c 6c 73 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |lls the |value of|
|00001070| 20 60 70 72 6f 6c 6f 67 | 2d 6d 6f 64 65 2d 68 6f | `prolog|-mode-ho|
|00001080| 6f 6b 27 20 77 69 74 68 | 20 6e 6f 20 61 72 67 75 |ok' with| no argu|
|00001090| 6d 65 6e 74 73 2c 0a 69 | 66 20 74 68 61 74 20 76 |ments,.i|f that v|
|000010a0| 61 6c 75 65 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 2e |alue is |non-nil.|
|000010b0| 20 20 4c 69 6b 65 77 69 | 73 65 20 77 69 74 68 20 | Likewi|se with |
|000010c0| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 60 63 6f |the valu|e of `co|
|000010d0| 6d 69 6e 74 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 27 2e |mint-mod|e-hook'.|
|000010e0| 0a 60 70 72 6f 6c 6f 67 | 2d 6d 6f 64 65 2d 68 6f |.`prolog|-mode-ho|
|000010f0| 6f 6b 27 20 69 73 20 63 | 61 6c 6c 65 64 20 61 66 |ok' is c|alled af|
|00001100| 74 65 72 20 60 63 6f 6d | 69 6e 74 2d 6d 6f 64 65 |ter `com|int-mode|
|00001110| 2d 68 6f 6f 6b 27 2e 0a | 0a 59 6f 75 20 63 61 6e |-hook'..|.You can|
|00001120| 20 73 65 6e 64 20 74 65 | 78 74 20 74 6f 20 74 68 | send te|xt to th|
|00001130| 65 20 69 6e 66 65 72 69 | 6f 72 20 50 72 6f 6c 6f |e inferi|or Prolo|
|00001140| 67 20 66 72 6f 6d 20 6f | 74 68 65 72 20 62 75 66 |g from o|ther buf|
|00001150| 66 65 72 73 0a 75 73 69 | 6e 67 20 74 68 65 20 63 |fers.usi|ng the c|
|00001160| 6f 6d 6d 61 6e 64 73 20 | 60 73 65 6e 64 2d 72 65 |ommands |`send-re|
|00001170| 67 69 6f 6e 27 2c 20 60 | 73 65 6e 64 2d 73 74 72 |gion', `|send-str|
|00001180| 69 6e 67 27 20 61 6e 64 | 20 5c 5c 5b 70 72 6f 6c |ing' and| \\[prol|
|00001190| 6f 67 2d 63 6f 6e 73 75 | 6c 74 2d 72 65 67 69 6f |og-consu|lt-regio|
|000011a0| 6e 5d 2e 0a 0a 43 6f 6d | 6d 61 6e 64 73 3a 0a 54 |n]...Com|mands:.T|
|000011b0| 61 62 20 69 6e 64 65 6e | 74 73 20 66 6f 72 20 50 |ab inden|ts for P|
|000011c0| 72 6f 6c 6f 67 3b 20 77 | 69 74 68 20 61 72 67 75 |rolog; w|ith argu|
|000011d0| 6d 65 6e 74 2c 20 73 68 | 69 66 74 73 20 72 65 73 |ment, sh|ifts res|
|000011e0| 74 0a 20 6f 66 20 65 78 | 70 72 65 73 73 69 6f 6e |t. of ex|pression|
|000011f0| 20 72 69 67 69 64 6c 79 | 20 77 69 74 68 20 74 68 | rigidly| with th|
|00001200| 65 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 2e 0a |e curren|t line..|
|00001210| 50 61 72 61 67 72 61 70 | 68 73 20 61 72 65 20 73 |Paragrap|hs are s|
|00001220| 65 70 61 72 61 74 65 64 | 20 6f 6e 6c 79 20 62 79 |eparated| only by|
|00001230| 20 62 6c 61 6e 6b 20 6c | 69 6e 65 73 20 61 6e 64 | blank l|ines and|
|00001240| 20 27 25 25 27 2e 0a 27 | 25 27 73 20 73 74 61 72 | '%%'..'|%'s star|
|00001250| 74 20 63 6f 6d 6d 65 6e | 74 73 2e 0a 0a 52 65 74 |t commen|ts...Ret|
|00001260| 75 72 6e 20 61 74 20 65 | 6e 64 20 6f 66 20 62 75 |urn at e|nd of bu|
|00001270| 66 66 65 72 20 73 65 6e | 64 73 20 6c 69 6e 65 20 |ffer sen|ds line |
|00001280| 61 73 20 69 6e 70 75 74 | 2e 0a 52 65 74 75 72 6e |as input|..Return|
|00001290| 20 6e 6f 74 20 61 74 20 | 65 6e 64 20 63 6f 70 69 | not at |end copi|
|000012a0| 65 73 20 72 65 73 74 20 | 6f 66 20 6c 69 6e 65 20 |es rest |of line |
|000012b0| 74 6f 20 65 6e 64 20 61 | 6e 64 20 73 65 6e 64 73 |to end a|nd sends|
|000012c0| 20 69 74 2e 0a 5c 5c 5b | 63 6f 6d 69 6e 74 2d 6b | it..\\[|comint-k|
|000012d0| 69 6c 6c 2d 69 6e 70 75 | 74 5d 20 61 6e 64 20 5c |ill-inpu|t] and \|
|000012e0| 5c 5b 62 61 63 6b 77 61 | 72 64 2d 6b 69 6c 6c 2d |\[backwa|rd-kill-|
|000012f0| 77 6f 72 64 5d 20 61 72 | 65 20 6b 69 6c 6c 20 63 |word] ar|e kill c|
|00001300| 6f 6d 6d 61 6e 64 73 2c | 20 69 6d 69 74 61 74 69 |ommands,| imitati|
|00001310| 6e 67 20 6e 6f 72 6d 61 | 6c 20 55 6e 69 78 20 69 |ng norma|l Unix i|
|00001320| 6e 70 75 74 20 65 64 69 | 74 69 6e 67 2e 0a 5c 5c |nput edi|ting..\\|
|00001330| 5b 63 6f 6d 69 6e 74 2d | 69 6e 74 65 72 72 75 70 |[comint-|interrup|
|00001340| 74 2d 73 75 62 6a 6f 62 | 5d 20 69 6e 74 65 72 72 |t-subjob|] interr|
|00001350| 75 70 74 73 20 74 68 65 | 20 73 68 65 6c 6c 20 6f |upts the| shell o|
|00001360| 72 20 69 74 73 20 63 75 | 72 72 65 6e 74 20 73 75 |r its cu|rrent su|
|00001370| 62 6a 6f 62 20 69 66 20 | 61 6e 79 2e 0a 5c 5c 5b |bjob if |any..\\[|
|00001380| 63 6f 6d 69 6e 74 2d 73 | 74 6f 70 2d 73 75 62 6a |comint-s|top-subj|
|00001390| 6f 62 5d 20 73 74 6f 70 | 73 2e 20 5c 5c 5b 63 6f |ob] stop|s. \\[co|
|000013a0| 6d 69 6e 74 2d 71 75 69 | 74 2d 73 75 62 6a 6f 62 |mint-qui|t-subjob|
|000013b0| 5d 20 73 65 6e 64 73 20 | 71 75 69 74 20 73 69 67 |] sends |quit sig|
|000013c0| 6e 61 6c 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |nal." ni|l]).(def|
|000013d0| 61 6c 69 61 73 20 27 72 | 75 6e 2d 70 72 6f 6c 6f |alias 'r|un-prolo|
|000013e0| 67 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 88 c2 c3 c4 |g #[nil |"..!....|
|000013f0| 0d 5c 22 21 88 c6 20 87 | 22 20 5b 72 65 71 75 69 |.\"!.. .|" [requi|
|00001400| 72 65 20 63 6f 6d 69 6e | 74 20 73 77 69 74 63 68 |re comin|t switch|
|00001410| 2d 74 6f 2d 62 75 66 66 | 65 72 20 6d 61 6b 65 2d |-to-buff|er make-|
|00001420| 63 6f 6d 69 6e 74 20 22 | 70 72 6f 6c 6f 67 22 20 |comint "|prolog" |
|00001430| 70 72 6f 6c 6f 67 2d 70 | 72 6f 67 72 61 6d 2d 6e |prolog-p|rogram-n|
|00001440| 61 6d 65 20 69 6e 66 65 | 72 69 6f 72 2d 70 72 6f |ame infe|rior-pro|
|00001450| 6c 6f 67 2d 6d 6f 64 65 | 5d 20 34 20 22 5c 0a 52 |log-mode|] 4 "\.R|
|00001460| 75 6e 20 61 6e 20 69 6e | 66 65 72 69 6f 72 20 50 |un an in|ferior P|
|00001470| 72 6f 6c 6f 67 20 70 72 | 6f 63 65 73 73 2c 20 69 |rolog pr|ocess, i|
|00001480| 6e 70 75 74 20 61 6e 64 | 20 6f 75 74 70 75 74 20 |nput and| output |
|00001490| 76 69 61 20 62 75 66 66 | 65 72 20 2a 70 72 6f 6c |via buff|er *prol|
|000014a0| 6f 67 2a 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |og*." ni|l]).(def|
|000014b0| 61 6c 69 61 73 20 27 70 | 72 6f 6c 6f 67 2d 63 6f |alias 'p|rolog-co|
|000014c0| 6e 73 75 6c 74 2d 72 65 | 67 69 6f 6e 20 23 5b 28 |nsult-re|gion #[(|
|000014d0| 63 6f 6d 70 69 6c 65 20 | 62 65 67 20 65 6e 64 29 |compile |beg end)|
|000014e0| 20 22 8a 08 83 0d 00 c1 | c2 0b 5c 22 88 82 12 00 | "......|..\"....|
|000014f0| c1 c2 5c 66 5c 22 88 c5 | c2 0e 06 0e 07 23 88 c1 |..\f\"..|.....#..|
|00001500| c2 c8 5c 22 88 0e 09 83 | 2c 00 c1 c2 0e 09 5c 22 |..\"....|,.....\"|
|00001510| 82 2f 00 ca c2 21 29 87 | 22 20 5b 63 6f 6d 70 69 |./...!).|" [compi|
|00001520| 6c 65 20 73 65 6e 64 2d | 73 74 72 69 6e 67 20 22 |le send-|string "|
|00001530| 70 72 6f 6c 6f 67 22 20 | 70 72 6f 6c 6f 67 2d 63 |prolog" |prolog-c|
|00001540| 6f 6d 70 69 6c 65 2d 73 | 74 72 69 6e 67 20 70 72 |ompile-s|tring pr|
|00001550| 6f 6c 6f 67 2d 63 6f 6e | 73 75 6c 74 2d 73 74 72 |olog-con|sult-str|
|00001560| 69 6e 67 20 73 65 6e 64 | 2d 72 65 67 69 6f 6e 20 |ing send|-region |
|00001570| 62 65 67 20 65 6e 64 20 | 22 5c 6e 22 20 70 72 6f |beg end |"\n" pro|
|00001580| 6c 6f 67 2d 65 6f 66 2d | 73 74 72 69 6e 67 20 70 |log-eof-|string p|
|00001590| 72 6f 63 65 73 73 2d 73 | 65 6e 64 2d 65 6f 66 5d |rocess-s|end-eof]|
|000015a0| 20 34 20 22 5c 0a 53 65 | 6e 64 20 74 68 65 20 72 | 4 "\.Se|nd the r|
|000015b0| 65 67 69 6f 6e 20 74 6f | 20 74 68 65 20 50 72 6f |egion to| the Pro|
|000015c0| 6c 6f 67 20 70 72 6f 63 | 65 73 73 20 6d 61 64 65 |log proc|ess made|
|000015d0| 20 62 79 20 5c 22 4d 2d | 78 20 72 75 6e 2d 70 72 | by \"M-|x run-pr|
|000015e0| 6f 6c 6f 67 5c 22 2e 0a | 49 66 20 43 4f 4d 50 49 |olog\"..|If COMPI|
|000015f0| 4c 45 20 28 70 72 65 66 | 69 78 20 61 72 67 29 20 |LE (pref|ix arg) |
|00001600| 69 73 20 6e 6f 74 20 6e | 69 6c 2c 20 75 73 65 20 |is not n|il, use |
|00001610| 63 6f 6d 70 69 6c 65 20 | 6d 6f 64 65 20 72 61 74 |compile |mode rat|
|00001620| 68 65 72 20 74 68 61 6e | 20 63 6f 6e 73 75 6c 74 |her than| consult|
|00001630| 20 6d 6f 64 65 2e 22 20 | 22 50 5c 6e 72 22 5d 29 | mode." |"P\nr"])|
|00001640| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 72 6f 6c |.(defali|as 'prol|
|00001650| 6f 67 2d 63 6f 6e 73 75 | 6c 74 2d 72 65 67 69 6f |og-consu|lt-regio|
|00001660| 6e 2d 61 6e 64 2d 67 6f | 20 23 5b 28 63 6f 6d 70 |n-and-go| #[(comp|
|00001670| 69 6c 65 20 62 65 67 20 | 65 6e 64 29 20 22 c0 09 |ile beg |end) "..|
|00001680| 5c 6e 0b 23 88 c4 c5 21 | 87 22 20 5b 70 72 6f 6c |\n.#...!|." [prol|
|00001690| 6f 67 2d 63 6f 6e 73 75 | 6c 74 2d 72 65 67 69 6f |og-consu|lt-regio|
|000016a0| 6e 20 63 6f 6d 70 69 6c | 65 20 62 65 67 20 65 6e |n compil|e beg en|
|000016b0| 64 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |d switch|-to-buff|
|000016c0| 65 72 20 22 2a 70 72 6f | 6c 6f 67 2a 22 5d 20 34 |er "*pro|log*"] 4|
|000016d0| 20 22 5c 0a 53 65 6e 64 | 20 74 68 65 20 72 65 67 | "\.Send| the reg|
|000016e0| 69 6f 6e 20 74 6f 20 74 | 68 65 20 69 6e 66 65 72 |ion to t|he infer|
|000016f0| 69 6f 72 20 50 72 6f 6c | 6f 67 2c 20 61 6e 64 20 |ior Prol|og, and |
|00001700| 73 77 69 74 63 68 20 74 | 6f 20 2a 70 72 6f 6c 6f |switch t|o *prolo|
|00001710| 67 2a 20 62 75 66 66 65 | 72 2e 0a 49 66 20 43 4f |g* buffe|r..If CO|
|00001720| 4d 50 49 4c 45 20 28 70 | 72 65 66 69 78 20 61 72 |MPILE (p|refix ar|
|00001730| 67 29 20 69 73 20 6e 6f | 74 20 6e 69 6c 2c 20 75 |g) is no|t nil, u|
|00001740| 73 65 20 63 6f 6d 70 69 | 6c 65 20 6d 6f 64 65 20 |se compi|le mode |
|00001750| 72 61 74 68 65 72 20 74 | 68 61 6e 20 63 6f 6e 73 |rather t|han cons|
|00001760| 75 6c 74 20 6d 6f 64 65 | 2e 22 20 22 50 5c 6e 72 |ult mode|." "P\nr|
|00001770| 22 5d 29 0a | |"]). | |
+--------+-------------------------+-------------------------+--------+--------+
